Foreland January 1997/Foreland January 1997.iso/explore.dir/00020.ls

Text File | 1996-12-26 | 712 b | 28 lines

on hiliteButtons
  global spriteNum
  repeat with spriteNum = 33 to 48
    if rollOver(spriteNum) then
      set mNum to the memberNum of sprite spriteNum
      set mname to the name of member mNum
      set hiliteName to mname && "hilite"
      set hiliteNum to the number of member hiliteName
      if hiliteNum > 0 then
        puppetSprite(spriteNum, 1)
        set the memberNum of sprite spriteNum to hiliteNum
      end if
      next repeat
    end if
    puppetSprite(spriteNum, 0)
  end repeat
end

on checkBar
  repeat with menuNum = 41 to 48
    if rollOver(32) then
      set the visible of sprite menuNum to 1
      next repeat
    end if
    set the visible of sprite menuNum to 0
  end repeat
end